home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 5
/
Apprentice-Release5.iso
/
Source Code
/
Libraries
/
WASTE 1.2
/
Minimal IC APIs
/
ICCFMGlue.c
< prev
next >
Wrap
Text File
|
1995-09-25
|
30KB
|
1,221 lines
/* •••Start Header••• */
/* File: PPC_ICAPI.c
* Generated by: 1.0d4
* For: IC 1.2
* On: Monday, 25 September 1995, 19:28:12
*
* This file is part of the Internet Configuration system and
* is placed in the public domain for the benefit of all.
*/
/* •••End Header••• */
#include <Types.h>
#include <MixedMode.h>
#include <Components.h>
#include "ICTypes.h"
#include "ICAPI.h"
// #include "ICCAPI.h"
#pragma options align=mac68k
enum {
internetConfigurationComponentType = 'PREF', /* the component type */
internetConfigurationComponentSubType = 'ICAp' /* the component subtype */
};
enum {
uppCallComponentProcInfo = kPascalStackBased
| RESULT_SIZE(kFourByteCode)
| STACK_ROUTINE_PARAMETER(1, kFourByteCode)
};
pascal ICError ICStart(ICInstance *inst, OSType creator)
{
ICError junk;
ICError err;
long response;
struct {
char param_flags;
char param_size;
short param_what;
OSType creator;
ICInstance inst;
} params;
*inst = nil;
if (Gestalt(gestaltComponentMgr, &response) == noErr) {
*inst = (ICInstance) OpenDefaultComponent(internetConfigurationComponentType, internetConfigurationComponentSubType);
};
if (*inst == nil) {
err = badComponentInstance;
} else {
params.param_flags = 0;
params.param_size = 4;
params.param_what = 0x00;
params.creator = creator;
params.inst = *inst;
err = CallUniversalProc(CallComponentUPP, uppCallComponentProcInfo, ¶ms);
if (err != noErr) {
junk = CloseComponent((ComponentInstance) *inst);
*inst = nil;
};
};
return(err);
}
pascal ICError ICCStart(ICInstance *inst, OSType creator)
{
return (ICStart(inst, creator));
}
pascal ICError ICStop(ICInstance inst)
{
ICError err;
ICError err2;
struct {
char param_flags;
char param_size;
short param_what;
ICInstance inst;
} params;
params.param_flags = 0;
params.param_size = 0;
params.param_what = 0x01;
params.inst = inst;
err = CallUniversalProc(CallComponentUPP, uppCallComponentProcInfo, ¶ms);
err2 = CloseComponent((ComponentInstance) inst);
if (err == noErr) {
err = err2;
};
return(err);
}
pascal ICError ICCStop(ICInstance inst)
{
return (ICStop(inst));
}
pascal ICError ICGetComponentInstance(ICInstance inst, Ptr *component_inst)
{
*component_inst = inst;
return (noErr);
}
pascal ICError ICCGetComponentInstance(ICInstance inst, Ptr *component_inst)
{
return (ICGetComponentInstance(inst, component_inst));
}
/* •••Start PPC_ICAPI.c••• */
/* ***** Starting Up and Shutting Down ***** */
/* ***** Specifying a Configuration ***** */
pascal ICError ICFindConfigFile(ICInstance inst, short count, ICDirSpecArrayPtr folders)
{
struct {
char param_flags;
char param_size;
short param_what;
ICDirSpecArrayPtr folders;
short count;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 6;
params.param_what = 2;
/* routine specific assignments */
params.folders = folders;
params.count = count;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICFindConfigFile */
pascal ICError ICCFindConfigFile(ICInstance inst, short count, ICDirSpecArrayPtr folders)
{
return(ICFindConfigFile(inst, count, folders));
} /* ICCFindConfigFile */
pascal ICError ICFindUserConfigFile(ICInstance inst, ICDirSpec *where)
{
struct {
char param_flags;
char param_size;
short param_what;
ICDirSpec *where;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 14;
/* routine specific assignments */
params.where = where;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICFindUserConfigFile */
pascal ICError ICCFindUserConfigFile(ICInstance inst, ICDirSpec *where)
{
return(ICFindUserConfigFile(inst, where));
} /* ICCFindUserConfigFile */
pascal ICError ICGeneralFindConfigFile(ICInstance inst, Boolean search_prefs, Boolean can_create, short count, ICDirSpecArrayPtr folders)
{
struct {
char param_flags;
char param_size;
short param_what;
ICDirSpecArrayPtr folders;
short count;
Boolean can_create;
char filler1;
Boolean search_prefs;
char filler0;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 10;
params.param_what = 30;
/* routine specific assignments */
params.folders = folders;
params.count = count;
params.can_create = can_create;
params.search_prefs = search_prefs;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGeneralFindConfigFile */
pascal ICError ICCGeneralFindConfigFile(ICInstance inst, Boolean search_prefs, Boolean can_create, short count, ICDirSpecArrayPtr folders)
{
return(ICGeneralFindConfigFile(inst, search_prefs, can_create, count, folders));
} /* ICCGeneralFindConfigFile */
pascal ICError ICChooseConfig(ICInstance inst)
{
struct {
char param_flags;
char param_size;
short param_what;
/* nothing to declare */
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 0;
params.param_what = 33;
/* routine specific assignments */
/* nothing to do */
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICChooseConfig */
pascal ICError ICCChooseConfig(ICInstance inst)
{
return(ICChooseConfig(inst));
} /* ICCChooseConfig */
pascal ICError ICChooseNewConfig(ICInstance inst)
{
struct {
char param_flags;
char param_size;
short param_what;
/* nothing to declare */
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 0;
params.param_what = 34;
/* routine specific assignments */
/* nothing to do */
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICChooseNewConfig */
pascal ICError ICCChooseNewConfig(ICInstance inst)
{
return(ICChooseNewConfig(inst));
} /* ICCChooseNewConfig */
pascal ICError ICGetConfigName(ICInstance inst, Boolean longname, Str255 name)
{
struct {
char param_flags;
char param_size;
short param_what;
StringPtr name;
Boolean longname;
char filler0;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 6;
params.param_what = 35;
/* routine specific assignments */
params.name = name;
params.longname = longname;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetConfigName */
pascal ICError ICCGetConfigName(ICInstance inst, Boolean longname, Str255 name)
{
return(ICGetConfigName(inst, longname, name));
} /* ICCGetConfigName */
pascal ICError ICGetConfigReference(ICInstance inst, ICConfigRefHandle ref)
{
struct {
char param_flags;
char param_size;
short param_what;
ICConfigRefHandle ref;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 31;
/* routine specific assignments */
params.ref = ref;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetConfigReference */
pascal ICError ICCGetConfigReference(ICInstance inst, ICConfigRefHandle ref)
{
return(ICGetConfigReference(inst, ref));
} /* ICCGetConfigReference */
pascal ICError ICSetConfigReference(ICInstance inst, ICConfigRefHandle ref, long flags)
{
struct {
char param_flags;
char param_size;
short param_what;
long flags;
ICConfigRefHandle ref;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 8;
params.param_what = 32;
/* routine specific assignments */
params.flags = flags;
params.ref = ref;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICSetConfigReference */
pascal ICError ICCSetConfigReference(ICInstance inst, ICConfigRefHandle ref, long flags)
{
return(ICSetConfigReference(inst, ref, flags));
} /* ICCSetConfigReference */
pascal ICError ICSpecifyConfigFile(ICInstance inst, FSSpec *config)
{
struct {
char param_flags;
char param_size;
short param_what;
FSSpec *config;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 3;
/* routine specific assignments */
params.config = config;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICSpecifyConfigFile */
pascal ICError ICCSpecifyConfigFile(ICInstance inst, FSSpec *config)
{
return(ICSpecifyConfigFile(inst, config));
} /* ICCSpecifyConfigFile */
/* ***** Getting Information ***** */
pascal ICError ICGetSeed(ICInstance inst, long *seed)
{
struct {
char param_flags;
char param_size;
short param_what;
long *seed;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 4;
/* routine specific assignments */
params.seed = seed;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetSeed */
pascal ICError ICCGetSeed(ICInstance inst, long *seed)
{
return(ICGetSeed(inst, seed));
} /* ICCGetSeed */
pascal ICError ICGetPerm(ICInstance inst, ICPerm *perm)
{
struct {
char param_flags;
char param_size;
short param_what;
ICPerm *perm;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 13;
/* routine specific assignments */
params.perm = perm;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetPerm */
pascal ICError ICCGetPerm(ICInstance inst, ICPerm *perm)
{
return(ICGetPerm(inst, perm));
} /* ICCGetPerm */
pascal ICError ICDefaultFileName(ICInstance inst, Str63 name)
{
struct {
char param_flags;
char param_size;
short param_what;
StringPtr name;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 11;
/* routine specific assignments */
params.name = name;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICDefaultFileName */
pascal ICError ICCDefaultFileName(ICInstance inst, Str63 name)
{
return(ICDefaultFileName(inst, name));
} /* ICCDefaultFileName */
/* ***** Reading and Writing Preferences ***** */
pascal ICError ICBegin(ICInstance inst, ICPerm perm)
{
struct {
char param_flags;
char param_size;
short param_what;
ICPerm perm;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 2;
params.param_what = 5;
/* routine specific assignments */
params.perm = perm;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICBegin */
pascal ICError ICCBegin(ICInstance inst, ICPerm perm)
{
return(ICBegin(inst, perm));
} /* ICCBegin */
pascal ICError ICGetPref(ICInstance inst, ConstStr255Param key, ICAttr *attr, Ptr buf, long *size)
{
struct {
char param_flags;
char param_size;
short param_what;
long *size;
Ptr buf;
ICAttr *attr;
StringPtr key;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 16;
params.param_what = 6;
/* routine specific assignments */
params.size = size;
params.buf = buf;
params.attr = attr;
params.key = (StringPtr) key;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetPref */
pascal ICError ICCGetPref(ICInstance inst, ConstStr255Param key, ICAttr *attr, Ptr buf, long *size)
{
return(ICGetPref(inst, key, attr, buf, size));
} /* ICCGetPref */
pascal ICError ICSetPref(ICInstance inst, ConstStr255Param key, ICAttr attr, Ptr buf, long size)
{
struct {
char param_flags;
char param_size;
short param_what;
long size;
Ptr buf;
ICAttr attr;
StringPtr key;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 16;
params.param_what = 7;
/* routine specific assignments */
params.size = size;
params.buf = buf;
params.attr = attr;
params.key = (StringPtr) key;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICSetPref */
pascal ICError ICCSetPref(ICInstance inst, ConstStr255Param key, ICAttr attr, Ptr buf, long size)
{
return(ICSetPref(inst, key, attr, buf, size));
} /* ICCSetPref */
pascal ICError ICFindPrefHandle(ICInstance inst, ConstStr255Param key, ICAttr *attr, Handle prefh)
{
struct {
char param_flags;
char param_size;
short param_what;
Handle prefh;
ICAttr *attr;
StringPtr key;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 12;
params.param_what = 36;
/* routine specific assignments */
params.prefh = prefh;
params.attr = attr;
params.key = (StringPtr) key;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICFindPrefHandle */
pascal ICError ICCFindPrefHandle(ICInstance inst, ConstStr255Param key, ICAttr *attr, Handle prefh)
{
return(ICFindPrefHandle(inst, key, attr, prefh));
} /* ICCFindPrefHandle */
pascal ICError ICGetPrefHandle(ICInstance inst, ConstStr255Param key, ICAttr *attr, Handle *prefh)
{
struct {
char param_flags;
char param_size;
short param_what;
Handle *prefh;
ICAttr *attr;
StringPtr key;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 12;
params.param_what = 26;
/* routine specific assignments */
params.prefh = prefh;
params.attr = attr;
params.key = (StringPtr) key;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetPrefHandle */
pascal ICError ICCGetPrefHandle(ICInstance inst, ConstStr255Param key, ICAttr *attr, Handle *prefh)
{
return(ICGetPrefHandle(inst, key, attr, prefh));
} /* ICCGetPrefHandle */
pascal ICError ICSetPrefHandle(ICInstance inst, ConstStr255Param key, ICAttr attr, Handle prefh)
{
struct {
char param_flags;
char param_size;
short param_what;
Handle prefh;
ICAttr attr;
StringPtr key;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 12;
params.param_what = 27;
/* routine specific assignments */
params.prefh = prefh;
params.attr = attr;
params.key = (StringPtr) key;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICSetPrefHandle */
pascal ICError ICCSetPrefHandle(ICInstance inst, ConstStr255Param key, ICAttr attr, Handle prefh)
{
return(ICSetPrefHandle(inst, key, attr, prefh));
} /* ICCSetPrefHandle */
pascal ICError ICCountPref(ICInstance inst, long *count)
{
struct {
char param_flags;
char param_size;
short param_what;
long *count;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 8;
/* routine specific assignments */
params.count = count;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICCountPref */
pascal ICError ICCCountPref(ICInstance inst, long *count)
{
return(ICCountPref(inst, count));
} /* ICCCountPref */
pascal ICError ICGetIndPref(ICInstance inst, long n, Str255 key)
{
struct {
char param_flags;
char param_size;
short param_what;
StringPtr key;
long n;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 8;
params.param_what = 9;
/* routine specific assignments */
params.key = key;
params.n = n;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetIndPref */
pascal ICError ICCGetIndPref(ICInstance inst, long n, Str255 key)
{
return(ICGetIndPref(inst, n, key));
} /* ICCGetIndPref */
pascal ICError ICDeletePref(ICInstance inst, ConstStr255Param key)
{
struct {
char param_flags;
char param_size;
short param_what;
StringPtr key;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 12;
/* routine specific assignments */
params.key = (StringPtr) key;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICDeletePref */
pascal ICError ICCDeletePref(ICInstance inst, ConstStr255Param key)
{
return(ICDeletePref(inst, key));
} /* ICCDeletePref */
pascal ICError ICEnd(ICInstance inst)
{
struct {
char param_flags;
char param_size;
short param_what;
/* nothing to declare */
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 0;
params.param_what = 10;
/* routine specific assignments */
/* nothing to do */
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICEnd */
pascal ICError ICCEnd(ICInstance inst)
{
return(ICEnd(inst));
} /* ICCEnd */
/* ***** User Interface Stuff ***** */
pascal ICError ICEditPreferences(ICInstance inst, ConstStr255Param key)
{
struct {
char param_flags;
char param_size;
short param_what;
StringPtr key;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 4;
params.param_what = 15;
/* routine specific assignments */
params.key = (StringPtr) key;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICEditPreferences */
pascal ICError ICCEditPreferences(ICInstance inst, ConstStr255Param key)
{
return(ICEditPreferences(inst, key));
} /* ICCEditPreferences */
/* ***** URL Handling ***** */
pascal ICError ICParseURL(ICInstance inst, ConstStr255Param hint, Ptr data, long len, long *selStart, long *selEnd, Handle url)
{
struct {
char param_flags;
char param_size;
short param_what;
Handle url;
long *selEnd;
long *selStart;
long len;
Ptr data;
StringPtr hint;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 24;
params.param_what = 16;
/* routine specific assignments */
params.url = url;
params.selEnd = selEnd;
params.selStart = selStart;
params.len = len;
params.data = data;
params.hint = (StringPtr) hint;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICParseURL */
pascal ICError ICCParseURL(ICInstance inst, ConstStr255Param hint, Ptr data, long len, long *selStart, long *selEnd, Handle url)
{
return(ICParseURL(inst, hint, data, len, selStart, selEnd, url));
} /* ICCParseURL */
pascal ICError ICLaunchURL(ICInstance inst, ConstStr255Param hint, Ptr data, long len, long *selStart, long *selEnd)
{
struct {
char param_flags;
char param_size;
short param_what;
long *selEnd;
long *selStart;
long len;
Ptr data;
StringPtr hint;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 20;
params.param_what = 17;
/* routine specific assignments */
params.selEnd = selEnd;
params.selStart = selStart;
params.len = len;
params.data = data;
params.hint = (StringPtr) hint;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICLaunchURL */
pascal ICError ICCLaunchURL(ICInstance inst, ConstStr255Param hint, Ptr data, long len, long *selStart, long *selEnd)
{
return(ICLaunchURL(inst, hint, data, len, selStart, selEnd));
} /* ICCLaunchURL */
/* ***** Mappings Routines *****
*
* Routines for interrogating mappings database.
*
* ----- High Level Routines -----
*/
pascal ICError ICMapFilename(ICInstance inst, ConstStr255Param filename, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
StringPtr filename;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 8;
params.param_what = 24;
/* routine specific assignments */
params.entry = entry;
params.filename = (StringPtr) filename;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICMapFilename */
pascal ICError ICCMapFilename(ICInstance inst, ConstStr255Param filename, ICMapEntry *entry)
{
return(ICMapFilename(inst, filename, entry));
} /* ICCMapFilename */
pascal ICError ICMapTypeCreator(ICInstance inst, OSType fType, OSType fCreator, ConstStr255Param filename, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
StringPtr filename;
OSType fCreator;
OSType fType;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 16;
params.param_what = 25;
/* routine specific assignments */
params.entry = entry;
params.filename = (StringPtr) filename;
params.fCreator = fCreator;
params.fType = fType;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICMapTypeCreator */
pascal ICError ICCMapTypeCreator(ICInstance inst, OSType fType, OSType fCreator, ConstStr255Param filename, ICMapEntry *entry)
{
return(ICMapTypeCreator(inst, fType, fCreator, filename, entry));
} /* ICCMapTypeCreator */
/* ----- Mid Level Routines ----- */
pascal ICError ICMapEntriesFilename(ICInstance inst, Handle entries, ConstStr255Param filename, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
StringPtr filename;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 12;
params.param_what = 28;
/* routine specific assignments */
params.entry = entry;
params.filename = (StringPtr) filename;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICMapEntriesFilename */
pascal ICError ICCMapEntriesFilename(ICInstance inst, Handle entries, ConstStr255Param filename, ICMapEntry *entry)
{
return(ICMapEntriesFilename(inst, entries, filename, entry));
} /* ICCMapEntriesFilename */
pascal ICError ICMapEntriesTypeCreator(ICInstance inst, Handle entries, OSType fType, OSType fCreator, ConstStr255Param filename, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
StringPtr filename;
OSType fCreator;
OSType fType;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 20;
params.param_what = 29;
/* routine specific assignments */
params.entry = entry;
params.filename = (StringPtr) filename;
params.fCreator = fCreator;
params.fType = fType;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICMapEntriesTypeCreator */
pascal ICError ICCMapEntriesTypeCreator(ICInstance inst, Handle entries, OSType fType, OSType fCreator, ConstStr255Param filename, ICMapEntry *entry)
{
return(ICMapEntriesTypeCreator(inst, entries, fType, fCreator, filename, entry));
} /* ICCMapEntriesTypeCreator */
/* ----- Low Level Routines ----- */
pascal ICError ICCountMapEntries(ICInstance inst, Handle entries, long *count)
{
struct {
char param_flags;
char param_size;
short param_what;
long *count;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 8;
params.param_what = 18;
/* routine specific assignments */
params.count = count;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICCountMapEntries */
pascal ICError ICCCountMapEntries(ICInstance inst, Handle entries, long *count)
{
return(ICCountMapEntries(inst, entries, count));
} /* ICCCountMapEntries */
pascal ICError ICGetIndMapEntry(ICInstance inst, Handle entries, long ndx, long *pos, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
long *pos;
long ndx;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 16;
params.param_what = 19;
/* routine specific assignments */
params.entry = entry;
params.pos = pos;
params.ndx = ndx;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetIndMapEntry */
pascal ICError ICCGetIndMapEntry(ICInstance inst, Handle entries, long ndx, long *pos, ICMapEntry *entry)
{
return(ICGetIndMapEntry(inst, entries, ndx, pos, entry));
} /* ICCGetIndMapEntry */
pascal ICError ICGetMapEntry(ICInstance inst, Handle entries, long pos, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
long pos;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 12;
params.param_what = 20;
/* routine specific assignments */
params.entry = entry;
params.pos = pos;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICGetMapEntry */
pascal ICError ICCGetMapEntry(ICInstance inst, Handle entries, long pos, ICMapEntry *entry)
{
return(ICGetMapEntry(inst, entries, pos, entry));
} /* ICCGetMapEntry */
pascal ICError ICSetMapEntry(ICInstance inst, Handle entries, long pos, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
long pos;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 12;
params.param_what = 21;
/* routine specific assignments */
params.entry = entry;
params.pos = pos;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICSetMapEntry */
pascal ICError ICCSetMapEntry(ICInstance inst, Handle entries, long pos, ICMapEntry *entry)
{
return(ICSetMapEntry(inst, entries, pos, entry));
} /* ICCSetMapEntry */
pascal ICError ICDeleteMapEntry(ICInstance inst, Handle entries, long pos)
{
struct {
char param_flags;
char param_size;
short param_what;
long pos;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 8;
params.param_what = 22;
/* routine specific assignments */
params.pos = pos;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICDeleteMapEntry */
pascal ICError ICCDeleteMapEntry(ICInstance inst, Handle entries, long pos)
{
return(ICDeleteMapEntry(inst, entries, pos));
} /* ICCDeleteMapEntry */
pascal ICError ICAddMapEntry(ICInstance inst, Handle entries, ICMapEntry *entry)
{
struct {
char param_flags;
char param_size;
short param_what;
ICMapEntry *entry;
Handle entries;
ICInstance inst;
} params;
/* some setup */
params.param_flags = 0;
params.param_size = 8;
params.param_what = 23;
/* routine specific assignments */
params.entry = entry;
params.entries = entries;
/* do the work */
params.inst = inst;
return(CallUniversalProc(CallComponentUPP,
uppCallComponentProcInfo,
¶ms));
} /* ICAddMapEntry */
pascal ICError ICCAddMapEntry(ICInstance inst, Handle entries, ICMapEntry *entry)
{
return(ICAddMapEntry(inst, entries, entry));
} /* ICCAddMapEntry */
/* •••End PPC_ICAPI.c••• */
/* End of File */